home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok37 / skrÄbel / sc_computer-mod-asm.zoo / Skräbel-src / sc_Computer-Mod.ASM / Rec.ASM < prev    next >
Assembly Source File  |  1990-03-19  |  2KB  |  73 lines
  1. ;(*****************************************************************************
  2. ;
  3. ;  :Program.       Rec.ASM
  4. ;  :Author.        Georg Brünsing
  5. ;  :Address.       Grechte 2, D-4156 Willich 3
  6. ;  :Phone.         02156/7534
  7. ;  :ShortCut.      gb
  8. ;  :Support.       -
  9. ;  :Version.       1.0
  10. ;  :Date.          20-Feb-89
  11. ;  :Copyright.     PD
  12. ;  :Language.      Assembler
  13. ;  :Translator.    Profimat / DATA BECKER
  14. ;  :Imports.       -
  15. ;  :Update.        -
  16. ;  :History.       -
  17. ;  :ModHistory.    -
  18. ;  :Contents.      Assembler Source für Skräbel
  19. ;  :Remark.        Modula-RECORD
  20. ;  :Usage.         -
  21. ;
  22. ;*****************************************************************************)
  23.  
  24.  
  25. FeldAnz      = 15
  26. MaxSpZuege   =  8
  27. BeginZugRing =  1
  28. EndZugRing   = 10
  29.  
  30. ; SteineAngelegt = (NichtErmittelt, Waagerecht, Senkrecht)
  31. NichtErmitteltBit = 0
  32. WaagerechtBit     = 1
  33. SenkrechtBit      = 2
  34.  
  35. ;SpielerZugRec = RECORD
  36. XPos               =    0  ; Size =   2
  37. YPos               =    2  ; Size =   2
  38. Blanko             =    4  ; Size =   1
  39. char               =    5  ; Size =   1
  40. SpielerZugSize     =    6
  41.  
  42. ;ZugRingRec = RECORD
  43. RZugPunkte         =    0  ; Size =   2
  44. RAnzSpZuege        =    2  ; Size =   2
  45. RAngelegt          =    4  ; Size =   1
  46. left               =    6  ; Size =   2
  47. top                =    8  ; Size =   2
  48. right              =   10  ; Size =   2
  49. down               =   12  ; Size =   2
  50. RSpZug             =   14  ; Size =  48
  51. Gesetzt            =   62  ; Size =   8
  52. ZugRingSize        =   70
  53.  
  54. ;ComputerMessage = RECORD
  55. SpielerNr          =    0  ; Size =   2
  56. AkZugRing          =    2  ; Size =   2
  57. ZugRingDraw        =    4  ; Size =   2
  58. LiegtLen           =    6  ; Size =   2
  59. WortLen            =    8  ; Size =   2
  60. AdrWortOk          =   10  ; Size =   4
  61. ADRSpielZugChar    =   14  ; Size =   4
  62. ADRAngrenzungenOk  =   18  ; Size =   4
  63. Aktivitaet         =   22  ; Size =   2
  64. Spielfeld          =   24  ; Size = 225
  65. Wort               =  250  ; Size =  31
  66. Leiste             =  282  ; Size =   9
  67. Liegt              =  292  ; Size =  16
  68. GWort              =  308  ; Size =  16
  69. Pruefung           =  324  ; Size = 225
  70. ZugRing            =  550  ; Size = 700
  71. ComputerMsgSize    = 1250
  72.    END
  73.